  ''' <summary>
  ''' Metodo para ordenar lista de numeros de menor a mayor
  ''' </summary>
  ''' <param name="lista"> lista de numeros List(Of Integer)</param>
  ''' <returns>lista_Ordenada</returns>
  ''' <remarks></remarks>
  Private Function ordenarDatos(lista As List(Of Integer)) As List(Of Integer)
    Dim lista_Ordenada As List(Of Integer) = lista
    Dim aux As Integer
    If lista.Count > 1 Then
      For j As Integer = 1 To lista_Ordenada.Count - 1
        For i As Integer = 1 To lista_Ordenada.Count - 1
          If lista_Ordenada.Item(i - 1) > lista_Ordenada.Item(i) Then
            aux = lista_Ordenada.Item(i - 1)
            lista_Ordenada.Item(i - 1) = lista_Ordenada.Item(i)
            lista_Ordenada.Item(i) = aux
          End If
        Next
      Next
    End If
    Return lista_Ordenada
  End Function